Meldungen anzeigen

Meldungen lassen sich komfortabel und einfach mit drei Funktionsbausteinen anzeigen. Das Beispielprogramm zeigt die Verwendung.

REPORT zzenno26.

DATA:
  l_corr_wanted,
  l_exit_command TYPE bal_s_excm,
  l_posnr TYPE posnr.

START-OF-SELECTION.

  CALL FUNCTION ‘MESSAGES_INITIALIZE’.

  l_posnr = 1.
  PERFORM add_message USING ‘S’ ‘030’ space space space space.
  PERFORM add_message USING ‘W’ ‘041’ ‘TZTS1’ space space space.

  l_posnr = 2.
  PERFORM add_message USING ‘I’ ‘102’ ‘TXT’ ‘X1’ ‘TAB3’ space.
  PERFORM add_message USING ‘W’ ‘042’ space space space space.
  PERFORM add_message USING ‘S’ ‘035’ space space space space.
  PERFORM add_message USING ‘E’ ‘033’ space space space space.

  CALL FUNCTION ‘MESSAGES_SHOW’
       EXPORTING
            corrections_option    = ‘X’
            corrections_func_text = ‘Bearbeiten’
            show_linno            = ‘X’
            show_linno_text_len   = ‘3’
            i_use_grid            = ‘X’
            i_amodal_window       = ‘ ‘
       IMPORTING
            corrections_wanted    = l_corr_wanted
            e_exit_command        = l_exit_command
       EXCEPTIONS
            no_messages           = 2
            OTHERS                = 3.

*———————————————————————*
*       FORM add_message                                              *
*———————————————————————*

FORM add_message USING value(msgty)
                       value(msgno)
                       value(msgv1)
                       value(msgv2)
                       value(msgv3)
                       value(msgv4).

  CALL FUNCTION ‘MESSAGE_STORE’
       EXPORTING
            arbgb  = ‘V0’
            msgty  = msgty
            msgv1  = msgv1
            msgv2  = msgv2
            msgv3  = msgv3
            msgv4  = msgv4
            txtnr  = msgno
            zeile  = l_posnr
       EXCEPTIONS
            OTHERS = 3.

ENDFORM.

 

Enno Wulff